home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 6 / QRZ Ham Radio Callsign Database - Volume 6.iso / pc / files / mac / proj_a1.hqx / Project Mac - A1 / BEAM < prev    next >
Encoding:
Text File  |  1984-10-09  |  1.4 KB  |  44 lines
  1. 0 REM
  2. 10  PRINT "ENTER HOME QTH": INPUT QTH$
  3. 20  INPUT "ENTER HOME LATITUDE,DEGREES";TA
  4. 30  INPUT "ENTER HOME LONGITUDE,DEGREES";AN
  5. 40 RALT = TA * .017453
  6. 50 RNA = AN * .017453
  7. 60  DEF  FN SNIV(X) =  ATN (X /  SQR ( - X * X + 1))
  8. 70  DEF  FN CSIV(X) =  -  ATN (X /  SQR ( - X * X + 1)) + 1.5708
  9. 80  GOSUB 380
  10. 100  OPEN  "BEAMDATA" FOR INPUT AS #1
  11. 110  FOR I = 1 TO 400
  12. 130  INPUT #1, PX$,CTY$,BT,BN,ZN
  13. 140  ON ERROR  GOTO 360
  14. 150 RBLT = BT * .017453
  15. 160 NBR = BN * .017453
  16. 170 X = NBR - RNA
  17. 180 D =  FN CSIV(( SIN (RBLT) *  SIN (RALT)) + ( COS (RBLT) *  COS (RALT) *  COS (X)))
  18. 190 MI = D * 57.29577# * 69
  19. 200 CSN = ( COS (RBLT) *  SIN (X)) /  SIN (D)
  20. 210 CCS = ( SIN (RBLT) - ( SIN (RALT) *  COS (D))) / ( COS (RALT) *  SIN (D))
  21. 220 RC =  FN SNIV(CSN)
  22. 230 C = RC * 57.29577#
  23. 240  IF CCS > 0 AND CCS > 0 THEN AZ = C
  24. 250  IF CCS < 0 THEN AZ = 180 - C
  25. 260  IF CSN < 0 AND CCS > 0 THEN AZ = 360 + C
  26. 270  IF AZ - 180 < 0 THEN LP = 180 + AZ
  27. 280  IF AZ - 180 > 0 THEN LP = AZ - 180
  28. 290 IAZ =  INT (AZ):ILP =  INT (LP):IMI =  INT (MI)
  29. 300 NUM = NUM + 1
  30. 310  IF NUM < 58 GOTO 340
  31. 320 NUM = 1
  32. 330  GOSUB 380
  33. 340  PRINT PX$; TAB( 6);CTY$; TAB( 26);IAZ; TAB( 31);ILP; TAB( 36);IMI
  34. 350  NEXT I
  35. 360 CLOSE BEAMDATA
  36. 370  END 
  37. 380  FOR I = 1 TO 4
  38. 390  PRINT ""
  39. 400  NEXT I
  40. 410  PRINT "CENTERED ON ";QTH$
  41. 420  PRINT "PX"; TAB( 6);"COUNTRY"; TAB( 26);"BEAM"; TAB( 31);"LP"; TAB( 36);"MILES"
  42. 430  PRINT "----------------------------------------"
  43. 440  RETURN 
  44.